Initialiser Tableau
*******************
Shared stringVar array TypeProduit := [" "] ;
Shared numberVar x := 1;

Charger Tableau
***************
Shared numberVar x;
Shared stringVar array TypeProduit ;

TypeProduit [x] := {Product_Type.Product Type Name}; // Cette instruction enregistre le nom du type du produit dans le tableau
Redim preserve TypeProduit [UBound(TypeProduit)+1];// Cette instruction ajoute de l'espace dans le tableau.
x := x+1;







Imprimer Tableau
****************
Shared stringVar array TypeProduit ;

Join(TypeProduit , ", ");

//replace (Join(productType, ", ")+"!",", !", ""); // l'instruction replace permet d'viter la virgule 
//affiche aprs le dernier lment de la liste